5 IF A=0 THEN DIM A$(25)
10 IF A=0 THEN A=1:LOAD"HRSUPP.D",8,1
15 IF A=2 THEN 120
20 BA=6*16^3:REM BASE ADDRESS
30 IN=BA
40 RS=BA+3
50 CL=BA+6
60 I=-1
70 I=I+1:READ A$(I):IF A$(I)<>"END" THEN 70
80 PRINT"HIT 'C' TO CONTINUE":FOR J=0TOI:PRINTJ;A$(J):NEXTJ
90 INPUT"WHICH NUMBER";N
100 IF N=I THEN GOSUB130:END
110 SYSIN:A=2:LOADA$(N),8,1
120 GET A$:IFA$="C"THENGOSUB130:GOTO80
125 GOTO120
130 SYSCL:SYSRS:RETURN
150 DATA SLADY.D
160 DATA RONNIE.D
300 DATA END